home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8506.arc / TIMERPRO.COB < prev    next >
Text File  |  1986-09-14  |  768b  |  19 lines
  1.       * COPY FILE OF PROCEDURE STATEMENTS FOR TIMER CALCULATIONS
  2.       *   NAME IS TIMERPRO.COB FOR MS, TIMERPRO.CBL FOR MF & DRI
  3.  
  4.        2400-CALC-TIME.
  5.            ADD 1 TO TIM1-HH.
  6.            ADD 1 TO TIM2-HH.
  7.            MOVE TIM2-MM TO TIM3-MM.
  8.            MOVE TIM2-SS TO TIM3-SS.
  9.            IF TIM3-MM = ZERO OR TIM3-MM < TIM1-MM
  10.                SUBTRACT 1 FROM TIM2-HH
  11.                ADD     60  TO  TIM3-MM.
  12.            IF TIM3-SS = ZERO OR TIM3-SS < TIM1-SS
  13.                SUBTRACT 1 FROM TIM3-MM
  14.                ADD     60  TO  TIM3-SS.
  15.            SUBTRACT TIM1-HH FROM TIM2-HH GIVING ELAPSED-HH.
  16.            SUBTRACT TIM1-MM FROM TIM3-MM GIVING ELAPSED-MM.
  17.            SUBTRACT TIM1-SS FROM TIM3-SS GIVING ELAPSED-SS.
  18.        2400-EXIT.    EXIT.
  19.